unit spr_ServicePercent;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, shbl_Directory, PropFilerEh, XLSExportComp, PropStorageEh,
  FIBDatabase, pFIBDatabase, ExtCtrls, DB, FIBDataSet, pFIBDataSet,
  ActnList, Buttons, GridsEh, DBGridEh, StdCtrls, ComCtrls, ToolWin,
  DBCtrlsEh, Mask, DBLookupEh;

type
  TsprServicePercent = class(TshblDirectory)
    dsReferID: TFIBIntegerField;
    dsReferORG_ID: TFIBIntegerField;
    dsReferBDATE: TFIBDateField;
    dsReferCHARGE_PERCENT: TFIBBCDField;
    dsReferPAY_PERCENT: TFIBBCDField;
    dsReferIS_DELETED: TFIBSmallIntField;
    dsReferNAME: TFIBStringField;
    dsOrgList: TpFIBDataSet;
    dscOrgList: TDataSource;
    DBLookupComboboxEh1: TDBLookupComboboxEh;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    DBNumberEditEh1: TDBNumberEditEh;
    DBNumberEditEh2: TDBNumberEditEh;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    dsOrgListID: TFIBIntegerField;
    dsOrgListSHORTNAME: TFIBStringField;
    dsOrgListNAME: TFIBStringField;
    dsReferPAY_PERCENT_SUPP: TFIBBCDField;
    Label5: TLabel;
    DBNumberEditEh3: TDBNumberEditEh;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sprServicePercent: TsprServicePercent;

implementation

{$R *.dfm}

procedure TsprServicePercent.FormShow(Sender: TObject);
begin
  inherited;
  dsOrgList.Open;
end;

end.                                                                                            
